Labels:text | screenshot | display | software | number | web page | computer icon OCR: ............. btnClose Properties .................. ........ D ... Click Sub ClickO IF work is pending, THEN Warn the user and do not close the form; otherwise, close the form - as requested. ' Test if udpRecMgrObject has been set IF IsNull ( Container. udpRecMgrObject ) then Container. udpRecMgrObject = Container. GetTopContainer ( ) Test if recMgrObject has RecordSource Use a variant IWP to represent IsWorkPending IF LEN ( Container. udpRecMgrObject. RecordSource ) = 0 THEN IWP = FALSE ELSE IWP = Container. udpRecMgrObject. GetRecordset ( ) . GetSession ( ) . IsWorkPending () END IF 1 - Check IF work has been committed IF IWP THEN IF IsNull ( Application. Label ) THEN MSGBOX "Work is Pending!" & CHR (13) & "You MUST Commit or Rollback your pending work. " ELSE MSGBOX ( "Work is Pending!" & CHR (13) & "You MUST Commit or Rollback your pending work. ", 0, Application. La END IF ELSE ' IF exists, open the window that called this form. Close this window IF NOT IsNull ( Container. udpNextWindow ) THEN Container. udpNextWindow. OpenWindow ( ) IF Container. udpExitApp THEN ' Use existing code to exit the application. Container. GetTopContainer ( ) . DoCommand ( cCmdStop ) ELSE ' Close the Window, but do not force the application to close. Container. GetTopContainer ( ) . CloseWindow ( ) END IF END IF
